10 REM*********************************
20 REM***          WRITTEN          ***
30 REM***            BY             ***
40 REM***       DIRK SCHLOTE        ***
50 REM***            AND            ***
60 REM***     MATTHIAS STRECKER     ***
62 REM***        ZUM ANGER 8        ***
64 REM***    3430 WITZENHAUSEN 6    ***
66 REM***      TEL. 05542/1632      ***
70 REM*********************************
80 BN=1:L1=1:WG=8:GOSUB950:GOSUB1000
90 IFI<>0THEN670
100 REM********************************
110 REM***        TITELBILD         ***
120 REM********************************
130 POKE53280,1:POKE53281,1
140 PRINTCHR$(142):PRINTCHR$(8)
141 PRINTCHR$(147):PRINT:PRINT:PRINT
150 PRINT"          [154]  [144] [146]"
160 PRINT"[154]                [146][144] [146]"
170 PRINT"[154]   [144] [146]      [154]  [144] [146]              [154][169][144] [146]"
180 PRINT"[154]   [144] [146]      [154]  [144] [146]  [154]      [144] [146] [154]     [144] [146] [154]     [144] [146]"
190 PRINT"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154] [144] [146]  [154] [144] [146]"
200 PRINT"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154]     [144] [146]"
210 PRINT"[154]       [144] [146]  [154]  [144] [146]  [154]  [144] [146][154]   [144] [146] [154] [144] [146]  [154] [144] [146] [154] [144] [146]"
220 PRINT"[154]       [144] [146]  [154]  [144] [146]  [154]      [144] [146] [154] [144] [146]  [154] [144] [146] [154]     [144] [146]"
230 PRINT"                                       ";
240 PRINT"                 RESCUE 1                ";
250 PRINT"                                        ";
260 PRINT"[144] 1985 [146]"
270 PRINT""
280 PRINT" BY MATTHIAS STRECKER AND DIRK SCHLOTE"
290 FORT=0TO4:PRINT"[145][145]":NEXT
300 PRINT"              PLEASE WAIT  "
310 I=1:GOTO90
320 PRINT"[145] PRESS A BUTTON "
330 FORT=0TO350:NEXT
340 PRINT"[145]                [146]
350 [161]A$:[139]A$[178]""[167]370
360 [153]"":[137]380
370 [129]T[178]0[164]350:[130]:[137]320
380 [153]"GENERATE OR PLAY GAME ?"
390 [153]"(  G  /  P  )"
400 [161]A$:[139]A$[178]"G"[167][158]51590
410 [139]A$[179][177]"P"[167]400
420 [141]1030
430 [143]*******************************
440 [143]***        BILD-LADEN       ***
450 [143]*******************************
460 [151]53281,1:[151]53280,1:[151]646,0
470 [153]"LOADES WIRD GELADEN
480 PRINT"BILD :";BN
530 BN$=STR$(BN)
540 A$="STONE-BILD"+BN$+"*"
550 FORT=1TOLEN(A$):POKE12984+T,ASC(MID$(A$,T,1)):NEXT
560 SYS51565
570 IFBN=10THENPOKE37794,65:POKE37787,65
590 RETURN
600 REM*******************************
610 REM***        GAME OVER        ***
620 REM*******************************
630 F1=48:GOSUB950:PRINT"[158]GAME OVER"
640 PRINT"PRESS SPACE"
643 POKE1179,48
645 FORZ=0TO50:FORT=0TO8:POKEV+22,T:NEXT:NEXT
650 L1=1:L2=0:L3=0:L4=0
660 POKE198,0:WAIT 198,1:GOTO360
670 REM*******************************
680 REM***     INITIALISIERUNG     ***
690 REM*******************************
700 IFI=1THENI=2:LOAD"STONE 1",8,1
710 IFI=2THENI=3:SYS49152:LOAD"STONE 2",8,1
720 V=53248:POKEV+37,8
730 POKEV+38,14
740 FORT=39TO43:POKEV+T,7:NEXT
750 POKE12949,31:POKE12969,8
760 GOTO 320
770 REM*******************************
780 REM***      ANZEIGEN-TAFEL     ***
790 REM*******************************
800 B1$=LEFT$(BN$,2)
805 IFBN<10THENB1$=CHR$(48)
806 B1=VAL(B1$)
810 B2$=RIGHT$(BN$,1):B2=VAL(B2$)
820 POKE12972,F1:POKE12973,F2
830 IFPEEK(12934)=51THENF2=F2+1
840 IFF2>57THENF1=F1+1
860 POKE12974,48+B1:POKE12975,48+B2
870 IFL1>57THENL2=L2+1
880 IFL2>57THENL3=L3+1
890 IFL3>57THENL4=L4+1
900 POKE12976,48+L4
910 POKE12977,48+L3
920 POKE12978,48+L2
930 POKE12979,48+L1
940 RETURN
950 REM*******************************
960 REM***       SCORE LOESCHEN    ***
970 REM*******************************
980 FORT=12931TO12936:POKET,48:NEXT
990 RETURN
1000 FORT=12937TO12942:POKET,48:NEXT
1010 RETURN
1030 REM******************************
1040 REM***     STEUERPROGRAMM     ***
1050 REM******************************
1060 F1=48:F2=51
1070 GOSUB1190:GOSUB1180:GOSUB430
1080 GOSUB1190:GOSUB1180:GOSUB770
1090 POKEV+21,255
1100 POKEV+4,144:POKEV+5,80
1110 POKEV+28,255:POKE2042,245
1120 POKE53280,0:POKE53281,0:POKE646,5
1123 POKEV+2,0:POKEV+6,0:POKEV+8,0:POKEV+10,0
1124 POKEV+22,200:POKEV+30,0:POKE12953,0
1125 POKE12960,0:POKE12952,0
1130 POKE12963,1:SYS49480:POKE12963,0
1140 S2=PEEK(12960)
1150 IFS2=1THENBN=BN+1:L1=L1+1:GOTO1070
1160 IFF2=49THENBN=1:GOTO600
1170 IFPEEK(12952)=1THENF2=F2-1:GOTO1080
1180 POKE12958,S1
1181 POKE12808,0:POKE12963,WA
1182 POKE12964,W1:POKE12965,W2
1183 POKE12966,W3:POKE12967,W4:RETURN:RETURN
1190 REM******************************
1200 REM***   BILDER VORBEREITEN   ***
1210 REM******************************
1215 W1=0:W2=0:W3=0:W4=0:GOSUB1182
1220 IFBN>=2THEN1240
1230 S1=12:WA=1:W1=87:W3=183:RETURN
1240 IFBN>=3THEN1260
1250 S1=11:WA=1:W1=87:W2=230:RETURN
1260 IFBN>=4THEN1280
1270 S1=11:WA=1:W1=230:RETURN
1280 IFBN>=5THEN1300
1290 S1=17:WA=1:W1=230:RETURN
1300 IFBN>=6THEN1320
1310 S1=15:WA=1:W1=78:W2=230:RETURN
1320 IFBN>=7THEN1340
1330 S1=12:WA=1:W1=230:RETURN
1340 IFBN>=8THEN1360
1350 S1=12:WA=1:W1=230:RETURN
1360 IFBN>=9THEN1380
1370 S1=10:WA=1:W1=230:RETURN
1380 IFBN>=10THEN1400
1390 S1=16:WA=1:W1=96:W2=230:RETURN
1400 IFBN>=11THEN1420
1410 S1=9:WA=1:W1=230:RETURN
1420 REM ******************************
1430 REM *** FOLGENDERMASSEN WERDEN ***
1440 REM *** EIGENE BILDER EINGEBAUT***
1450 REM *** 1. BILD ERZEUGEN       ***
1460 REM *** 2. STEINE ZAEHLEN      ***
1470 REM *** 3. NACH DEM SELBEN     ***
1480 REM ***    SCHEMA EINGEBEN WIE ***
1490 REM ***    OBEN.               ***
1500 REM *** - S1 = STEINANZAHL     ***
1510 REM *** - WA = 0 (WURM AUS)    ***
1520 REM *** - WA = 1 (WURM AN)     ***
1530 REM *** - W1-W4 HOEHEN DER     ***
1540 REM ***         WUERMER        ***
1550 REM ***         + :RETURN      ***
1560 REM *** - GOTO IN DER LETZTEN  ***
1570 REM ***   ZEILE ENTSPRECHEND   ***
1580 REM ***   AENDERN.(FERTIG)     ***
1590 REM ******************************
63999 IFBN>=11THENPOKE12949,PEEK(12949)-2:BN=1:RETURN